home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d3 / db4less3.arc / EMP.FMT < prev    next >
Encoding:
Text File  |  1990-06-16  |  2.3 KB  |  82 lines
  1. ********************************************************************************
  2. *-- Name....: EMP.FMT
  3. *-- Date....: 11-18-88
  4. *-- Version.: dBASE IV, Format 1.0
  5. *-- Notes...: Format files use "" as delimiters!
  6. ********************************************************************************
  7.  
  8. *-- Format file initialization code --------------------------------------------
  9.  
  10. IF SET("TALK")="ON"
  11.    SET TALK OFF
  12.    lc_talk="ON"
  13. ELSE
  14.    lc_talk="OFF"
  15. ENDIF
  16.  
  17. *-- This form was created in COLOR mode
  18. SET DISPLAY TO COLOR
  19.  
  20. lc_status=SET("STATUS")
  21. *-- SET STATUS was ON when you went into the Forms Designer.
  22. IF lc_status = "OFF"
  23.    SET STATUS ON
  24. ENDIF
  25.  
  26. *-- Window for memo field comments.
  27. DEFINE WINDOW Wndow1 FROM 13,15 TO 21,76 
  28.  
  29. *-- @ SAY GETS Processing. -----------------------------------------------------
  30.  
  31. *--  Format Page: 1
  32.  
  33. @ 1,26 SAY "EMPLOYEE" 
  34. @ 1,36 SAY "INFORMATION" 
  35. @ 1,49 SAY "FORM" 
  36. @ 2,3 TO 21,78 
  37. @ 4,6 SAY "ID Number" 
  38. @ 4,17 GET empid PICTURE "AA999" 
  39. @ 4,25 SAY "Dept" 
  40. @ 4,31 GET dept PICTURE "@A! XXXX" 
  41. @ 6,6 SAY "First Name" 
  42. @ 6,17 GET fname PICTURE "XXXXXXXXXXXXXXXXXXXX" 
  43. @ 6,40 SAY "Last" 
  44. @ 6,45 GET lname PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXX" 
  45. @ 7,6 SAY "Address" 
  46. @ 7,17 GET address PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXX" 
  47. @ 8,6 SAY "City" 
  48. @ 8,17 GET city PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXX" 
  49. @ 8,45 SAY "State" 
  50. @ 8,51 GET state PICTURE "@! XX" 
  51. @ 8,56 SAY "Zip" 
  52. @ 8,60 GET zip PICTURE "99999 9999" 
  53. @ 9,6 SAY "Phone" 
  54. @ 9,17 GET phone PICTURE "(999) 999-9999" ;
  55.    MESSAGE "Enter Phone Number" 
  56. @ 11,6 SAY "Employment Date" 
  57. @ 11,22 GET empdate 
  58. @ 11,34 SAY "Active" 
  59. @ 11,41 GET active PICTURE "Y" 
  60. @ 11,44 SAY "Skills" 
  61. @ 11,52 GET skills PICTURE "@!M WP,PR,AN,WP/PR,WP/AN,PR/AN,WP/PR/AN" ;
  62.    MESSAGE "Pick from Skills List" 
  63. @ 13,6 SAY "Comments" 
  64. @ 13,15 GET comments OPEN WINDOW Wndow1 ;
  65.    MESSAGE "Enter Education Information" 
  66.  
  67. *-- Format file exit code -----------------------------------------------------
  68.  
  69. *-- SET STATUS was ON when you went into the Forms Designer.
  70. IF lc_status = "OFF"  && Entered form with status off
  71.    SET STATUS OFF     && Turn STATUS "OFF" on the way out
  72. ENDIF
  73.  
  74. RELEASE WINDOWS Wndow1
  75.  
  76. IF lc_talk="ON"
  77.    SET TALK ON
  78. ENDIF
  79.  
  80. RELEASE lc_talk,lc_fields,lc_status
  81. *-- EOP: EMP.FMT
  82.